home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / editor / auror300.zip / CFGFMGR.AML < prev    next >
Text File  |  1996-07-17  |  2KB  |  89 lines
  1. //--------------------------------------------------------------------
  2. // The Aurora Editor v3.0, Copyright (C) 1993-1996 nuText Systems
  3. //
  4. // CFGFMGR.AML
  5. // Configuration for File Manager Options
  6. //--------------------------------------------------------------------
  7.  
  8. include bootpath "define.aml"
  9.  
  10. variable fmgropt, fmgrsort, fmgrquit, confopt
  11.  
  12. // create dialog box
  13. dialog "File Manager Options" 54 16 "cp"
  14. //dialog "File Manager Options" 75 12 "cp"
  15.  
  16. // display options
  17. groupbox 'Display:' 3 2
  18.   (menu ''
  19.      item " [ ] &Variable Length Format"
  20.      item " [ ] &Directories"
  21.      item " [ ] &Files"
  22.      item " [ ] &Hidden and System Files "
  23.      item " [ ] Sizes in 1&k increments "
  24.      item " [ ] D&irectories First"
  25.    end) '' _FmgrOpt "vdfhk1"
  26.  
  27. // sort options
  28. groupbox 'Sort by:' 3 10
  29. //groupbox 'Sort by:' 58 2
  30.   (menu ''
  31.      item " ( ) &Name"
  32.      item " ( ) &Extension"
  33.      item " ( ) &Size"
  34.      item " ( ) D&ate/Time  "
  35.      item " ( ) D&os Order"
  36.    end) '' _FmgrSort 'nesdo'
  37.  
  38. // confirmation options
  39. groupbox 'Confirm on:' 34 2
  40.   (menu ''
  41.      item " [ ] File De&lete"
  42.      item " [ ] File &Replace "
  43.      item " [ ] File &Touch"
  44.    end) '' (if? _ConDel == 'y' 'a') + (if? _ConRpl  == 'y' 'b') +
  45.            (if? _ConTch == 'y' 'c')  "abc"
  46.  
  47. // other options
  48. groupbox 'Options:' 34 7
  49.   (menu ''
  50.      item " [ ] &Quit on Open "
  51.    end) '' _FmgrQuit 'y'
  52.  
  53. // ok/cancel buttons
  54. button "O&k"    33 14 8
  55. button "Cancel" 44 14 8
  56.  
  57. // display dialog box
  58. if (getdialog ref fmgropt ref fmgrsort ref confopt ref fmgrquit) == 'Ok' then
  59.  
  60.   // confirmation options
  61.   prf.ConDel = if? (pos 'a' confopt) 'y' 'n'
  62.   prf.ConRpl = if? (pos 'b' confopt) 'y' 'n'
  63.   prf.ConTch = if? (pos 'c' confopt) 'y' 'n'
  64.  
  65.   doupdate = prf.FmgrOpt <> fmgropt
  66.   prf.FmgrOpt  = fmgropt
  67.   prf.FmgrSort = fmgrsort
  68.   prf.FmgrQuit = fmgrquit
  69.  
  70.   // apply changes to all existing fmgr windows
  71.   w = getcurrwin
  72.   while w do
  73.     if wintype? "fmgr" w then
  74.       oldwin = gotowindow w
  75.       oldbuf = gotobuf (getwinbuf)
  76.       oldevent = geteventobj
  77.       seteventobj "fmgr"
  78.       if doupdate then
  79.         send "fupdate" '' fmgropt + _NameStyle
  80.       end
  81.       fsort _FmgrSort
  82.       seteventobj oldevent
  83.       gotobuf oldbuf
  84.       gotowindow oldwin
  85.     end
  86.     w = getprevwin w
  87.   end
  88. end
  89.